home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Linux Cubed Series 7: Sunsite
/
Linux Cubed Series 7 - Sunsite Vol 1.iso
/
system
/
shells
/
scsh-0.4
/
scsh-0
/
scsh-0.4.2
/
debug
/
tiny.scm
< prev
next >
Wrap
Text File
|
1995-10-13
|
505b
|
21 lines
; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees. See file COPYING.
; Tiny image test system
;(initialize-defpackage! ?? ??)
;(define-structure tiny-system (export start)
; (define-all-operators)
; (files (debug tiny)))
;(link-simple-system '(debug tiny) 'start tiny-system)
(define (start arg in out)
(write-string "Hello " out)
(if (vector? arg)
(if (< 0 (vector-length arg))
(write-string (vector-ref arg 0) out)))
(write-char #\newline out)
(force-output out)
0)